10 REM -- MAKE50HZ ERZEUGT EURO-GEOS --
15 REM     THORSTEN PETROWSKI 10/86
20 REM            (C) 64'ER
25 :
30 :
35 A=A+1:IF A=1 THEN LOAD"GDM.OBJ",8,1:REM MASCHINENCODE LADEN
40 PRINT"[147]GEOS-KERNAL DISK EINLEGEN - TASTE ":REM ANWEISUNG AUSGEBEN
45 POKE 198,0:WAIT 198,1:REM AUF TASTE WARTEN
50 :
55 :
60 OPEN 15,8,15,"UI":PRINT#15,"IO":REM DISK INITIALISIEREN
65 OPEN 2,8,2,"GEOS KERNAL":REM GEOS-KERNAL OEFFNEN
70 :
75 GOSUB 200:REM DISK-STATUS PRUEFEN
80 :
85 SYS 49152:REM RECORDLISTE (VLIR) LESEN
86 CLOSE2:OPEN2,8,2"#"
90 :
95 TR=PEEK(49666):SE=PEEK(49667):REM BLOCK/SEKTOR DES ZWEITEN RECORDS HOLEN
100 PRINT#15,"B-P:2 0":REM KANAL 2 RUECKSETZEN (AUF 0.BYTE)
105 :
110 POKE 53265,11:REM BILDSCHIRM AUS
115 :
120 FOR RE=0 TO 16:REM 17 BLOCKS UEBERSPRINGEN
125 :PRINT#15,"U1:2 0";TR;SE:REM BLOCK NR RE LESEN
130 :SYS 49152:REM UND IN SPEICHER HOLEN
135 TA=TR:SA=SE:REM SPUR/SEKTOR MERKEN
140 TR=PEEK(49664):SE=PEEK(49665):REM UND SPUR/SEKTOR NAECHSTER BLOCK HOLEN
145 NEXT RE:REM ENDE DER SCHLEIFE
150 :
155 POKE 49774,128:REM WERT FUER CIA REGISTER NETZFREQUENZ AUF 50HZ SETZEN
160 :
161 PRINT#15,"B-P:2 0"
165 SYS 49193:PRINT#15,"U2:2 0";TA;SA:REM BLOCK RUECKSCHREIBEN
170 :
175 POKE 53265,27:REM BILDSCHIRM WIEDER AN
180 :
185 CLOSE 15:CLOSE 2:REM KANAELE SCHLIESSEN
190 PRINT"GEOS-KERNAL AUF 50HZ TAKT UMGESCHALTET":END:REM MELDUNG AUSGEBEN
195 :
200 REM --- DISK-ERROR ---
205 INPUT#15,EC,E$,T,S:PRINT"DISK:";EC;E$;T;S:REM FEHLERKANAL LESEN
210 RETURN:REM ZURUECK